home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / tools / player6.1a / source / cia_stuff.i < prev    next >
Encoding:
Text File  |  1980-01-04  |  433 b   |  21 lines
  1.  
  2.         lea    $dff000,a6
  3.         move    #$7fff,$9a(a6)        ;Disable IRQs
  4.         move    #$e000,$9a(a6)        ;Master and lev6, No Cop-IRQ!
  5.  
  6. mainloop    lea    $dff000,a6
  7. wait4cop    move    $1e(a6),d0        ;Wait for Copper-bit in INTREQR
  8.         and.l    #$10,d0
  9.         beq.b    wait4cop
  10.         move    #$10,$9c(a6)        ;Clear the bit
  11.  
  12.         bsr    mainstuff
  13.  
  14.         btst    #6,$bfe001
  15.         bne.s    mainloop
  16.     
  17.         move    #$7fff,$9a(a6)        ;Restore system status
  18.         move    #$7ff,$96(a6)
  19.  
  20.         dc    $800f,-2,$9c,$8010    ;Set Copper-bit in INTREQ
  21.